library("unsupervisedMicroarray")
source("./generatePReducersList.R")
source("./generateReducersList.R")
source("./generateRCComputerList.R")
source("./generateNParamAlgList.R")
data(brain)
data(leukemia)
data(carcinoma)
data(colon)

registerDoMC(cores=6)
reducers <- generatePReducersListComp()

#score
indO <- new("NInfGainReductionScore")
#final result
pTester <- new("SumBFrameworkFinalResult")
#bootstraped set
nboots <-10
rboots <- new("RowBootstrapedSet",list(X=brain$X,Y=brain$Y),nboots)
#sets
setList <-list(
		brain, leukemia, carcinoma, colon
)

parSeq = seq(1,10,1)
runner <-new("DimOneParamTestRunner",setList=setList, compList=reducers, bootstraperPrototype=rboots,
		finalResultComp=pTester, scoreObj=indO,
		resultsDirectory="./paramRedDim",paramSeq=parSeq)
res <- runTest(runner)